perm filename CYCFRM[1,LMM] blob sn#031693 filedate 1973-03-28 generic text, type T, neo UTF8
(COMMENT ADVISES TO CHECK FOR STRUCFORMS )

(ADVISE1 @ATTACHBIVS&LOOPS @BEFORE   @(ARG1 ARG2 ARG3)
        @              (PROG2 (SETQ !VALUE
                                    (STRUCFORM FORM =
                                               (LIST @ ATTACHBIVS&LOOPS 
                                                     ARG1 ARG2 ARG3)))
                              (IF (STRUCFORM? ARG3)
                                  THEN
                                  (RETURN (EVALARGS @ (NIL NIL FORM)
                                                    !VALUE))
                                  ELSEIF
                                  (NOT (TRY? !VALUE))
                                  THEN
                                  (RETURN (LIST !VALUE))
                                  ELSE NIL)))))))))))))))))

)))))))))))))))))
(ADVISE1 @ATTACHBIVALENTS @BEFORE  @(ARG1 ARG2)
                   @  (PROG2 (SETQ !VALUE
                                   (STRUCFORM FORM =
                                              (LIST @ ATTACHBIVALENTS 
                                                    ARG1 ARG2)))
                             (IF (STRUCFORM? ARG2)
                                 THEN
                                 (RETURN (EVALARGS @ (NIL FORM)
                                                   !VALUE))
                                 ELSEIF
                                 (NOT (TRY? !VALUE))
                                 THEN
                                 (RETURN (LIST !VALUE))
                                 ELSE NIL))))))))))))))))

)))))))))))))))))
(ADVISE1 @ATTACHFVS @BEFORE @(ARG1 ARG2)
         @(PROG2 (SETQ !VALUE (STRUCFORM FORM =(LIST
         @ ATTACHFVS ARG1 ARG2))) (IF (STRUCFORM? ARG2) THEN (RETURN (
         EVALARGS @ (NIL FORM) !VALUE)) ELSEIF (NOT (TRY? !VALUE)) THEN (
         RETURN (LIST !VALUE)) ELSE NIL)))))
(ADVISE1 @STRUCTURESWITHATOMS @BEFORE @(ARG1 ARG2)
   @(PROG2 (SETQ !VALUE (STRUCFORM
   FORM = (LIST @ STRUCTURESWITHATOMS ARG1 ARG2))) (IF (STRUCFORM?
   ARG2) THEN (RETURN (EVALARGS @ (NIL FORM) !VALUE)) ELSEIF (NOT (
   TRY? !VALUE)) THEN (RETURN (LIST !VALUE)) ELSE NIL)))))